Option Explicit
Dim objArgs,fso,x
Set objArgs = WScript.Arguments  
On Error Resume Next
Set fso=CreateObject("ScriptIng.FileSystemObject")
'For x = 0 to objArgs.Count - 1  
'WScript.Echo objArgs(x)
'      fso.CopyFile objArgs(x),"C:\Windows\SysWOW64\AnWinPlug.dll"
'      fso.CopyFile objArgs(x),"\\192.168.1.10\d\AnWinPlug.dll"
'      fso.CopyFile objArgs(x),"\\192.168.1.10\C\Windows\SysWOW64\AnWinPlug.dll"
'Next  
fso.CopyFile objArgs(0),objArgs(1)
Set fso=Nothing
WScript.Quit
